@include "misc.awk"

function o(a,s,  i)   { 
    for(i in a) print oprim(s,i,a) 
}
function oo(a, _str,_com,   i,com) {
    _str = the(_str,"array")
    _com = the(_com, " -n -k 2") 
    _com = "sort " _com  " #" rand(); # ensure com is unique
    for(i in a) 
        print oprim(_str,i,a) | _com
    close(_com)
}
function oprim(str,i,a,  j) {
    j=i
    gsub(SUBSEP,",",j) 
    return str "[ " j " ]\t=\t [ " a[i] " ]"
}
